(easy-mmode-define-navigation): Avoid
authorDave Love <fx@gnu.org>
Mon, 20 Oct 2003 19:05:51 +0000 (19:05 +0000)
committerDave Love <fx@gnu.org>
Mon, 20 Oct 2003 19:05:51 +0000 (19:05 +0000)
incf in macro expansion.

lisp/emacs-lisp/easy-mmode.el

index 9d73a8cdac8bc3f558a37932b72dda44dc6e851d..cdc4bc3aca0870ca047c12726955e1f6d0280f0a 100644 (file)
@@ -1,6 +1,6 @@
 ;;; easy-mmode.el --- easy definition for major and minor modes
 
-;; Copyright (C) 1997, 2000, 2001, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
 
 ;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr>
 ;; Maintainer: Stefan Monnier <monnier@gnu.org>
@@ -440,7 +440,7 @@ ENDFUN should return the end position (with or without moving point)."
         (interactive)
         (unless count (setq count 1))
         (if (< count 0) (,prev-sym (- count))
-          (if (looking-at ,re) (incf count))
+          (if (looking-at ,re) (setq count (1+ count)))
           (if (not (re-search-forward ,re nil t count))
               (if (looking-at ,re)
                   (goto-char (or ,(if endfun `(,endfun)) (point-max)))